<% dim pic,action,rndNumber pic = request.queryString("path") imageName = pic action = request("action") select case action case "send" 'Textfile wird erstellt und Link als Email versandt '-------------------------------------------------- Const fsoForWriting = 2 Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 'Erstellen eines Postkarten-Textfiles '-------------------------------------------------- Dim objTextStream randomize rndNumber = rnd*1000000000000 rndNumber = int(rndNumber) dim path path = server.MapPath("../postcards/"&rndNumber&".html") Set objTextStream = objFSO.OpenTextFile(path, fsoForWriting, True) 'Inhalt des zu schreibenden Postkarten-Textfiles '-------------------------------------------------- objTextStream.WriteLine "" objTextStream.WriteLine "" objTextStream.WriteLine " Ecard Senden" objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine "" objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine " " objTextStream.WriteLine "
" objTextStream.WriteLine "

" & request.form("toname") & "

" objTextStream.WriteLine "

" & request.form("mes") & "

" objTextStream.WriteLine "

" & request.form("fromname") & "

" objTextStream.WriteLine "
" objTextStream.WriteLine "

von:
" & request.form("fromemail") & "
an:
" & request.form("toemail") & "

" objTextStream.WriteLine "
Postkarten auf www.PhotoVista.ch. Willst Du mehr sehen? Dann klick hier.

" objTextStream.WriteLine " " objTextStream.WriteLine "" 'Schliessen des Files und versenden '-------------------------------------------------- objTextStream.Close Set objTextStream = Nothing Set objFSO = Nothing Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = request.form("toemail") objCDO.BCC = "ecards@extrazone.ch" objCDO.From = "ecards@extrazone.ch" objCDO.Value("Reply-To") = request.form("fromemail") objCDO.Subject = "Eine Postkarte von PhotoVista.ch wartet auf Dich!" thebody = request.form("toname") & vbCRLF & "Ich habe Dir eine Postkarte geschickt!" & vbCRLF & vbCRLF thebody = thebody & "Kopiere diese URL in deinen Browser: " & vbCRLF & "http://www.PhotoVista.ch/postcard.asp?id=" & rndNumber & vbCRLF & vbCRLF thebody = thebody & "------------------------------------------------------------" & vbCRLF & "http://www.PhotoVista.ch" & vbCRLF & "Sende mehr als 1000 Bilder aus aller Welt als Postkarten!" objCDO.Body = thebody objCDO.Send set objCDO = nothing 'response.write "" response.write "" response.end end select %> Photovista.ch - Ecard send

Postkarte senden

An (Email):

Von (Email):


Begrüssung:

Grusstext:

Absender:
Postkarte von www.PhotoVista.ch. Copyright © 1999-2002 Philipp Blatter, phipx@bluewin.ch